home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 19
/
Night Owl (The Best of Shareware)(NOPV 19)(1996).ISO
/
007a
/
sfnetfs.zip
/
SAMPLE.BAT
< prev
next >
Wrap
DOS Batch File
|
1995-12-09
|
5KB
|
174 lines
Here is What A Typical Batch File Would look like when you call The
international Hub.
@ECHO OFF
C:
:BACKUP
CD\SFNET
IF EXIST A0000000.QWK MUV A0000000.QWK C:\SFNET\HOLD
CD\SFNET\HOLD
REM Keep 5 runs worth of QWKs
IF EXIST *.QW5 DEL *.QW5
IF EXIST *.QW4 REN *.QW4 *.QW5
IF EXIST *.QW3 REN *.QW3 *.QW4
IF EXIST *.QW2 REN *.QW2 *.QW3
IF EXIST *.QW1 REN *.QW1 *.QW2
IF EXIST *.QWK REN *.QWK *.QW1
GOTO EXPORT
:EXPORT
CD\SFNET
IF EXIST A0000000.REP GOTO CALL
SHILOEXP A0000000
GOTO CALL
:CALL
CD\TELIX
TELIX Q SGETNET.SLC
GOTO IMPORT
:IMPORT
BFCOM 2 OFF
CD\SFNET
SHILOIMP A0000000.QWK
FROMINTL <- In comes FROMINTL.EXE
:END
Here is What a batch file might look like, for your nodes to use when
calling in and using the Menu Extension routine:
@Echo Off
:LOOP
C:
CD\SF
SFMNUEXT
IF ERRORLEVEL 48 GOTO EXTEND_Z
IF ERRORLEVEL 46 GOTO EXTEND_Y
IF ERRORLEVEL 44 GOTO EXTEND_X
IF ERRORLEVEL 42 GOTO EXTEND_W
IF ERRORLEVEL 40 GOTO EXTEND_V
IF ERRORLEVEL 38 GOTO EXTEND_U
IF ERRORLEVEL 36 GOTO EXTEND_T
IF ERRORLEVEL 34 GOTO EXTEND_S
IF ERRORLEVEL 32 GOTO EXTEND_R
IF ERRORLEVEL 30 GOTO EXTEND_P
IF ERRORLEVEL 28 GOTO EXTEND_O
IF ERRORLEVEL 26 GOTO EXTEND_N
IF ERRORLEVEL 24 GOTO EXTEND_M
IF ERRORLEVEL 22 GOTO EXTEND_L
IF ERRORLEVEL 20 GOTO EXTEND_K
IF ERRORLEVEL 18 GOTO EXTEND_J
IF ERRORLEVEL 16 GOTO EXTEND_I
IF ERRORLEVEL 14 GOTO EXTEND_H
IF ERRORLEVEL 12 GOTO EXTEND_F
IF ERRORLEVEL 10 GOTO EXTEND_E
IF ERRORLEVEL 8 GOTO EXTEND_D
IF ERRORLEVEL 6 GOTO EXTEND_C
IF ERRORLEVEL 4 GOTO EXTEND_B
IF ERRORLEVEL 2 GOTO EXTEND_A
IF ERRORLEVEL 1 GOTO LOOP
IF ERRORLEVEL 0 GOTO END
:EXTEND_A
COPY SFDOORS.DAT C:\SFNET
C:
CD\SFNET
IF EXIST A0803000.QWK DEL A0803000.QWK
SFMSGLMR /GET
SHILOEXP
TONODES <- In Comes TONODES.EXE
DSZ 2 sz A0803000.QWK
IF ERRORLEVEL 1 GOTO RESET
GOTO DEL_LM
:RESET
SFMSGLMR /SET
GOTO DEL_LM
:DEL_LM
IF EXIST *.LM DEL *.LM
IF EXIST A0803000.QWK DEL A0803000.QWK
DELAY 3.0
IF EXIST SFDOORS.DAT DEL SFDOORS.DAT
CD\SF
GOTO LOOP
:EXTEND_B
COPY SFDOORS.DAT C:\SFNET
C:
CD\SFNET
IF EXIST A0803000.REP DEL A0803000.REP
DSZ 2 restrict rz
IF EXIST A0803000.REP GOTO DOIMPORT
IF EXIST SFDOORS.DAT DEL SFDOORS.DAT
DELAY 3.0
CD\SF
GOTO LOOP
:DOIMPORT
SHILOIMP A0803000.REP
DELAY 3.0
DEL A0803000.REP
IF EXIST SFDOORS.DAT DEL SFDOORS.DAT
CD\SF
REM Place EXTENSION B Commands Here
GOTO LOOP
:END
C:
CD\SF
Here is what MY PRESCAN.BAT Looks Like:
@ECHO OFF
CD\SFNET
REM *********************************************************************
REM *A0803021 Is Don McWhirter Voice Phone: 904-268-3242,FIDO=1:112/100 *
REM *A0803022 Is Charlie Smith Voice Phone: 317-856-3441,FIDO=1:2230/110*
REM *A0803023 Is Alex Gen Voice Phone: 708-776-1341,FIDO=1:2235/185 *
REM *A0803024 Is Mike Weaver Voice Phone: 205-232-5082,FIDO=1:3670/3 *
REM *NOTE: Alex Does not want Backup,Mike Gets Crash *
REM *********************************************************************
REM
REM Lets Prescan A0803021 First!
CD\SFNET\A0803021
IF EXIST A0803021.QWK GOTO STOP21
CD\SFNET
SHILOEXP /PRE=A0803021
REN A0803000.QWK A0803021.QWK
TONODES A0803021
MUV A0803021.QWK C:\SFNET\A0803021
CD\FD
XRDOS SEND /FC:\SFNET\A0803021\A0803021.* /R1:112/100 /MH+C-E+
:STOP21
REM*********************************************************************
REM Lets Prescan A0803022 Now!
CD\SFNET\A0803022
IF EXIST A0803022.QWK GOTO STOP22
CD\SFNET
SHILOEXP /PRE=A0803022
REN A0803000.QWK A0803022.QWK
TONODES A0803022
MUV A0803022.QWK C:\SFNET\A0803022
CD\FD
XRDOS SEND /FC:\SFNET\A0803022\A0803022.* /R1:2230/110 /MH+C-E+
:STOP22
REM*********************************************************************
REM Lets Prescan A0803023 Now!
CD\SFNET\A0803023
IF EXIST A0803023.QWK GOTO STOP23
CD\SFNET
SHILOEXP /PRE=A0803023
REN A0803000.QWK A0803023.QWK
TONODES A0803023
MUV A0803023.QWK C:\SFNET\A0803023
CD\FD
XRDOS SEND /FC:\SFNET\A0803023\A0803023.QWK /R1:2235/185 /MH+C-E+
:STOP23
REM*********************************************************************
REM Lets Prescan A0803024 Now!
CD\SFNET\A0803024
IF EXIST A0803024.QWK GOTO STOP24
CD\SFNET
SHILOEXP /PRE=A0803024
REN A0803000.QWK A0803024.QWK
TONODES A0803024
MUV A0803024.QWK C:\SFNET\A0803024
CD\FD
XRDOS SEND /FC:\SFNET\A0803024\A0803024.QWK /R1:3670/3 /MC+E+
:STOP24
Have Fun!!